RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**F 1LE**1D** LOHORI 


v0 


LL 000000 HH HH 000000 RRRRRRRR IIIT] 

LL 000000 HH HH 000000 RRRRRRRR III! 

LL 00 00 HH HH 00 OO RR RR I] 

LL 00 00 HH HH 00 0O RR RR I] 

LL 00 00 HH HH 00 0O RR RR I] 

LL 00 00 HH HH 00 0O RR RR I] 

LL 00 OG HHHHHHHHHH 00 O00 RRRRRRRR I] 

LL 00 O00 HHHHHHHHHH 00 OO RRRRRRRR I] 

LL 00 OO HH HH 00 OO RR RR Il 

LL 00 OO HH HH 00 OO RR RR I] 

LL 00 00 HH HH 00 OO RR RR I] coos 
LL 00 00 HH HH 00 00 RR RR I] eees 
LLLLLLLLLL 000000 HH HH 000000 RR RR IIIIII eees 
LLLLLLLLLL 000000 HH HH 000000 RR RR IIIT] eens 
LL III! SSSSSSSS 

LL HII SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] $$ 

LELLLLLLLL HII] SSSSSSSS 

LLLLLLLLLL HI! SSSSSSSS 


Be Se Se Se Fe Se Be Se Se Se Se Se Se Se Se Se Se Se Ge Ge Se Se Se Be Se Bee Se Se Ge Se Se Se Oe BH Se Ge Se Se Oe ee SH Se Se ee SH Se Se ee Se SHS OH Se Sees ae 


Line output (horizontal motion) 
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SOWDNAUE WN $9 ODNAUES WN (0 OODNAUEWWN OC OONOUS WN 


SOOWNAUVEWN —$OODNAUES WN —OOONAOUSWWN —OOONOUS WN 
Ww 


a et ed a a ss 8 8 = SS 8 SS 


FE AWAWAW AAAI GP PONONONINUNONINDD 2 2 Oe 


eww 


984 
ZTITLE ‘Line output nyrorizgntal § motion)’ 
tbtnt 


MODULE LOHORI ( 
LISS32C, ADDRESSING siiatahy ees = LONG_RELATIVE 
) ONEXTERNAL = LONG-RELATIVE 
= 


BEGIN 


Lee RARER REAR RA AA EEAERAAEEAEEEAAAEEAEAEAEEEAEAAAA EAA REREEE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
iw ALL RIGHTS RESERVED. 


'* THIS ie ‘irtle . FURNISHED =. A LICENSE AND MAY BE USED AND gt Lt 
:* ONLY IN ACCORDANCE WITH THE TER 4h OF SUCH yet SE __ AND ae THE 
:* INCLUSION OF THe ABOVE Tg OTICE. THIS SOFT WARE OR ANY OTHER 
!* COPIES THEREOF MAY NOT BE PROV IDED OR OTHERWISE MADE AVAILABLE TO ANY 
? ThANStERAEO NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
* 8 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
” oePORAt ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
.* . 


!* DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
!® SOFTWARE ON EQUIPMENT WHICH IS 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


ea@eeneeeeneeeeneeennnnnnen 


PITITITILI LILLE LITTLE LL LILLE iiitiitiitiiiiitiiin 
i 


lee 
! FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


i 
i] 
1 
ABSTRACT: Translation from intermediate format to final output. 
i 

ENVIRONMENT: Transportable 

AUTHOR: K. A. Dawson CREATION DATE: December 1983 


K 3 
he tee ri eet a 


seus iedieencaaslpheeapbeinmetataten natin einen lat ceed : 
gon gute. (horizontal motion) 18- se0-19 384 99: AE 13 AX-11 Bliss-32 V4.0-7 Page 2 


Line 
Revis len History 14- 984 RUNOFF .SRCJLOHORI. Bit: (2) 

|. 4 pe) 1 ZSBTTL ‘Revision History’ 

3; 6 t 1! 

>: 8644 045 1 ! MODIFIED BY: 

; 65 044 1! 

s #8 045 1! 010 KFA00010 Ken Algen 06-Jul-1983 

; 66 b¢$ 3 Fixed logic for resetting pointer chet is used in 

: re be : scanning the MRA during a no-out run-through. 

: 50 $028 1 / 009 KFA00009 n Alden 30-Jun-1983 

; 23 Beet : } Adding a tsf oret count to keep track of pending crefs. 

: 38 O05¢ 1 i 008 KFA00008 Alden 28-Jun-1983 

: 2¢ BR27 ! Fixed cref bug with bers. enabled. 

: 56 0055 1: 007 KFA00007 Ken Alden 28-Jun-1983 

: rH Boas ! CLH is not called now unless Line has something in it. 

: 59 0058 1 | 006 KFA00006 Ken Alden 27-Jun-1983 

: $1 B228 ’ } Teaked the counter were for skip_out output. 

: 0061 1! 005 KFA00005 Ken A 23-Jun-1983 

3 6 0062 1! nagee call to OUTCREF hea gee, skip_out was true (and a cref 
; 664 0063 1! e peng "ne. This insures that the when the mra is not read, 
; e? Obes : our REF may still be called. 

ae 0066 1! 004 REMO0004 f Marshall 17=June-1983 

; «668 0067 1! Add call to ourcre nresee on encountering a <RINTES>C escape 
; 69 0068 1! sequence in the MRA. 

Se 0069 1! 

: 71 0070 1! 003 KAD00003 Keith Dawson 4-May-1983 

: 7 0071 1! Move test for /QUICK, so that CLH is never called if we are 
3 i it . skipping output. 

ead 0074 1: 002 AD00002 Keith Dawson V4-Apr=1983 

; 6 Babe : meas DSRPLUS conditionals for emphasis routines. 

: 78 0077 1: 001 KAD00001 Keith Dawson 22-Mar-1983 

ee .. 0078 1! 

;: & 0079 1 !-- 


LOHOR 


rivets Line output (horizontal motion) 


Module Level Declarations 
XSBITL ‘Module Levei Declarations’ 


TABLE OF CONTENTS: 


REQUIRE "REQ:RNODEF'; 
FORWARD ROUTINE 

LOUT1 : NOVALUE, 
build_line, 
compute_next_pass; 
; INCLUDE FILES: 
LIBRARY 'NXPORT:XPORT'; 


IF DSRPLUS %THEN 
5 her *REQ:DPLLIB'; 


LSE 
9 pai *REQ:DSRLIB'; 


cc 


MACROS: 


CRO 
emphasis_passes 
(.pass 
AND (.pass 


MACRO 
eotng neers San 
OR 


MACRO 
laser_output = 
§a9°2-oP_dev EQL op_dev_\n01 


-gca_op_dev EQL op_dev_\n0le) 
CRO 
generate_bare_cr_line = ( 
( (.last_pass GTR 0) 
( saer doing_under lining) 


WAWIUIRNIRINININININININID 2 2 9 2 HK HDOOCODOOCOOCOCOCOOOOOOO0OOOMMcdccCODOD 


WO AR a ODO NOUE WN O0DNOUE WM ODO NOUS WN $0 OONOUEWN (OO ONOUL Wr 
witb adiatadedmiadbadieiedababededad ei adadadadabadadadadadadadad dada adad adad ad abadacd ad ad ad aadad dada aadaded dad 


Be Oe Be oe Ge Be Be Se Se Fe Se Ge Se Ge Se Ge Fe Se Ge Fe Se Ge Se Se Ge Ge Ge Ge Se Ge Ge Ge Sse Ge Ge Se Fe Se Se Se Se Se Se Se Se Se Se Se Sees Fe Se Se Su Sse seas 


ee ee ee ee ee LL Le) 


Www 
BSBBSESBSEIETESZ 


pass_cntr Zor pass_underline 


mM 3 
1erSep=19be 49:00:97 


cntr GTR pass_setup) 
cntr LSS pass_real_text) 


AX=11 Bliss-32 V4.0-74 
RUNOFF .SRCJLOHORI .BLI; 


! RUNOFF variant definitions 


! XPORT Library 


DSRPLUS BLISS Library 
DSR BLISS Library 


-pass_cntr EQL pass_bold_underline) 


TRUE if output is for an 
LNO1 or an LNOTE. 


TRUE if we should generate 
intermediate output. 


First BUILD_LINE loop... 
and either we are doing boldin Foverssr Ising 
or we are doing underlining but not /SEPERA é. 


, (doing_underlining AND NOT .outopt_und_sep) 


sss snsshsesonesisssessseiesaseeesesnivsasinssnsanaes 4 


LOHOR Line output (horizontal motion) } 3 


3 
-1984 00:51:1 AX-11 Bliss-32 V4.0-74 P 
v04-000 Module Level Declarations ° $071 3be 90:31:18 Blis V age 4 


RUNOFF .SRCJLOHORI .BLI; (3) 


EXTERNAL LITERAL 


139 M 8 67 OR 
140 M ( (last pass LSS 0) ! Second BUILD LINE loop... 
14) M 8 AN ! and any bolding is present. 
148 x (.tsf_bld) 
14 M 
144 La) ) 
128 alan 
147 0 ! EQUATED SYMBOLS: 
148 : 
9 


rintes : UNSIGNED (8); 
1 


OWN STORAGE: 
OWN 
emphasis_bits, : A word containing information on current-character 
! and last-character bold and underline. 
! Number of physical Lines represented. 
! Justification spacing built up here. 
! Index into padding. 
: Number of characters in an overstrike sequence (/BACKSPACE mode only). 
: The character with which to overstrike the previous one. 


! 
' 
p_lines, : 
padding : VECTOR (75), 
1 
' 
overstrike_seq, CHSPTR to start of an overstrike sequence. 
' 
' 
' 
' 


pi, 
overstrike_count, 
overstrike_char, 


OO 00.0909 09 09 09 09 09 09 09 SIN NII NI NINN NINO OO 


WN SO OONAUES WN OCONOULSWWIR—OOO 


bold_limit, ! Location of last character to be bolded. 


pepepoielololelololelelololq) 
MMPoronsnorororoforopfrory 


00 
= 


over_limit, : Location of last overstruck character. 
29 under_Limit, ! Location of last character to be underlined. 
29 pass_Timit, ! Limit of scan for current pass 
$3 next_pass, : Keeps track of the next pass. : 
9 last_pass, : The number of the Last pase for this line. 
, pass_cntr; : Count of which pass is happening. See below. 


EXTERNAL 
fnct : FNCT_DEFINITION, 
U RIF FLIP XTHEN 
U rnoiob: REF $XPO_I0B(), 


XFI 
fra: iixed.ssring. 
gca : gca_definition, 
sca : sca_definition, 


: n, 
outopt : VECTOR Coutopt_size), 
phan : phan_definition; 


EXTERNAL LITERAL ! Error messages 
rnfile; 


© 0000090909 09 0909 09 09 SI NIN NIN NINN NO AAAAOAOAOA AUIS 


MEUM OOD NOAU EWN $9 OONOAUE WN S(O ODNAUSWN HOO ONOULWR OO” 
OB kk dd dd 


ee ee ee ee ce ce ee ce ee ee ee ce ee ee ee ee ee ee eed eed 


WN SO OONOUVE WN (OOD NOUS WN" OOONOUM 


AAA AAI AINIAI AAA AAA WWin 


EXTERNAL ROUTINE 
bsemph, opemph, 


oovond 


Pete Se Se Ge Fe Ge Ge Be Se Ge Be BeBe Ge Ge Ge Ge Ge Ge Ge Ge Ss Ge Ge Se Oe Se Oe Oe Oe Os Os Oe He Oe os Be Oe Se Oe Se Oe Ge Ge Oe Oe Se Ge Oe Oe Hee ee Oe Be es 


i ow ww wo foiololololelololo) 


Line output Chor Hzente 
Module Level Declarations 


ce ce 


fe leolojeloleleolejeleolololo) 
WAWNNNUINWWNN 
WAWINWWwroreorororerny 


CUFWR"OOONOu 
ot a a et tt 


ao XTHEN 
Lnemph : NOVALUE, 


DSRPLUS Z%THEN 
vtemph : NOVALUE, 


FLIP XTHEN 
flemph : NOVALUE, 


clh, cskipl, 
justf, Lstops, 
tor, uform; 


L motion) 


AX-11 Bliss-32 V4.0- 
RUNOFF .SRC LOHORI.BLI; 


LOHOR 
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tput (horizontal motion) -Sep- 351: - - -0- 
nied e outpu orizontal motion 16 Sep 1384 90:31:13 AX-11 Bi ie 32 V4.0-742 Page 6 


1 == Process remaining normal text in Line. 14-Sep-1 RUNOFF .SRCJLOHORI.BLI;1 (4) 
ZSBITL ‘LOUT! == Process weft normal text in Line.’ 
GLOBAL ROUTINE LOUT1 (ptr) : NOVALUE = 
lee 
FUNCTIONAL DESCRIPTION: 
; Process the remaining normal text in the Line. 
FORMAL PARAMETERS: 
! ptr Character reader in input Line. 
IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 
i 
i 
i 
i 
i 
: 
| 
| 
| 


ROUTINE VALUE: 
COMPLETION CODES: None 


SIDE EFFECTS: None 
BEGIN 


LOCAL 
status; 


ass_cntr = 1 


INCR i FROM 0 TO 74 DO padding C.i] = 1; 


! Compute number of physical Lines that this record represents. 
p_iines = 1; 


IF (.tsf_und 
THE AND .outopt_und_sep) 
p_lines = 2; ! Underline with dashes on next Line. 


! This ‘turns a page’ if necessary. 
con" . fnct_expanding 


MAMA AUIVIVIUTLES BBS BEB BB BWW NWN ONO POPOPONNIN 
ODONANEWD 0 OONAUES WN O ODA UEWN SO ODNOUESWN SOOO NOUSWN OO 
MEW 0 OONO UNE WIN O OD NOU EWN OO OONOAOUFS WN" OCONOULSWNR—OVOOn -— 


BEGIN . 
IF NOT tpr (.p_lines) 
THEN 
phan_top_page = .phan_paging OR .phan_top_page; 
! If we are positioned at precisely the position where it would be ok 


utput one or more footnotes, terminate a new page. 
ql ©) NEQ 0) 


EE AAA NIA BAP IPIPINPINIPIAILRPIPYIPINYINYPINPYIPYININPYININPIPININPNDS) 9 tO 
w 
ad 
oe 
7 
c 
wi 

" 
—~ 
oe 
pa 
w 
@ 
ee 


Ronononononononononononononononononononononononononononononononononononononornonoronory 


NAW AAA NA 
3 coo 


SARGRLS 


' too 
IF (tpfe 
THEN 


Wrm—>Do 


SO 
4 


aes ety By: justification. 
-tsf_jus_cn 
es ! set up PADDING accordingly. 


S 
fwn—o 


ustf (padding, .tsf_jus_cn 
, “ ° (IF 43} j 


t, 
ustify THEN .tsf_padding ELSE 0), 
4 .tsf_just_alg); . 


4 ! Take care of possible pending formfeed. 
4 if pnen. form_pend NEQ 0 


dD 4 
LOHOR Line output (horizontal motion) 16-Sep-1984 00:51:1 AX-11 Bliss-32 V4.0-74 Page 7) LOH 
100-006 LOUT1 == Process remaining normal text in Line. 122868718 & THe RUNOFF .SRCJLOHORI .BLI; oad vo4 
; 267 0394 han_top_page = .phan_paging OR .phan_top_page; ; 
ae 38 en; pran=toP.pag phan_paging phan_top_pag | 
3 0 39 ! If necessary, put heading on page before writing text. ; 
: efi 98 IF (phan top page ; 
; i 99 AND NOT .fnct_expanding) 5 
: oti O24 0 | 
3 newpa 3 : 
: 578 bide ~ | 
: <r “ ! If skipping output because the user used the /PAGES switch (or because | . 
: 77 404 ! we are in an early pass of /AUTOMATIC processing), just count the Lines ; 
; 378 405 ' but don't do any output. : 
: 279 04 IF .gca_skip_out ; 
; 280 040 THEN $ 
3 gel 0408 BEGIN $ 
; eB U 0409 ZIF OSRPLUS XTHEN 3 
; 28 U 0410 LOCAL 3 
: See U 0411 temp_ptr, 3 
; 285 U pels temp_length; : 
; 286 U 041 F 
: 38s ocis 3 han, Li bent li 
: an_lines_tp = .phan_lines_tp + . nes; : 
: 589 y 0616 § xif osrpLUS EMER CO | : 
; 290 U 0417 temp_length = .tsf_int_hl; : 
: $3) U 0418 cor ptr = .ptr; ; 
; 3 U 0419 WHILE (.tsf_cret_data NEQ 0) : 
3; 2 U 0420 AND : 
3 Soe U 0421 (.temp_length NEQ 0) F 
; 295 U 04 ¢ : 
; an U 04 (NOT CHSFAIL (.temp_ptr)) dO : 
: $35 U “ hey t CHSFIND SUB (.t l th t t 3 
; em rs .temp_len .tem r 3 
: 299 U 0426 rans CHSPTR(OPLITCHSTRINGCREHAR (28) -7C. °$))); ; 
; 300 U 0427 IF NOT CHSFAIL (.temp_ptr) 
3 wo U 8 THEN 
; $08 U 9 BEGIN 
; w U 0 outcref (); !Dump this pending cref. 
; 304 U 1 tsf_cref_count = .tsf_cref_count = 1; ! One less cref pending. 
; 3 U 3 'Reduce the context léngth to reflect what it has plregéy scanned. 
; 306 U 043 temp_length = .tsf_int_hl - CHSDIFF(.temp_ptr,.ptr) - 3; 
: 507 U temp_ptr = CHSPLUST.temp_ptr, 3); 
; 308 U 5 END; 
; 309 U END; 
3 310 <FI 
; 11 ; RETURN 
3 \¢ END; 
3 1 4 
: 14 4 
i He d 
A 13 
; 318 
: 19 
; 0 
: 8 


RRRRRLRREKREKRRRRRRR REPRE EE 


| 
! If justification required, | 
| 
| 


v04~000 


Be Se Se Ge Se Oe Oe Se Be Oe Be Se Se Ge Be Se Se FH Se Be Se Se Gs Se FHS Se Ge Se BH Se SESH Se SH Se Oe Oe Be OH Se Oe Se Se OHSS Se Se Oe Se Se Sees Se Se ee 


WAWnww 


DONA VS WN" O OBNOUS WHO” ViFUN—OOODNOus 


! 


1 
63 
64 


ccc 


ccccccce 


4 
Line output (horizontal motion) 1b-5¢ -1984 00:51: AX-11 Bliss-32 V4.0-74 
LOUT1 == Process remaining normal text in Line. 1 ba PI 90:35:83 RUNOFF SRE (onokt buy. 


r 1 F gphen_staulete 
4 § uform () !/SIMULATE 
4 ELSE 

: 5 -phan_pause 

4 5 fbwait () 

4 8 EL 

260 gt me IF NOT ( dev EQL dev_flip) 

-9ca_op_de 

rs x A. gca_op_dev op_dev_flip 

8 ! We must write out the formfeed here and then clear the 
464 ! FRA, because if an emphasized title is waiting, the FRA 
465 ! is going to be cleared (in BUILD_LINE) before it has 

r¢ ! @ chance to be written. 
046 BEGIN 
0468 fs_wehar (fra, .phan_form_pend); 
Be 9 cln (clh_out_nocrif); 

470 fs_init TfraJ; 
perl END; 
047 phan_form_pend = 0; 


os 
Generation of what TSF/MRA represent happens below this point. 


1 

i 

! Take care of actual Line printing, including bold, overstriking, 

and underlining. This, if not done using backspace, requires several 
' 

' 


8 asses over the Line to generate separate Lines which can then 
bce e used to overstrike each other. 
048 ! Make sure the pass counter is 1 going into BUILD_LINE. This avoids a 
Sege nasty bug involving recursive calls to LOUT for fop-of-page processing. 
0486 pass centr = 1; 
0487 HILE NOT .status DO 
ots Status = build_line (.ptr); 


0490 Preqqesing continues here when we exit BUILD_LINE returning TRUE. 


0491 S Output statement (also) does the last overprint 
bee ! to achieve the proper holding depth. 
049 '2. In /BACKSPACE mode, this write statement does the 
494 : actual output, since Beth ing has been output pet 
ht sir ‘tp n either case, the terminating CRLF is output. 
499 IF (.gca_op_dev EQL op_dev_flip) and .sca_header 
499 snip GIN 
500 OWN tochl_rec : $flip_tochl PRESET (Ctochl code] = flip$k_tochl); 
501 $XPO_PUT TI0B=.rnoiob, STRING= (flip$k_tochl_size,tochl_réc)); 
208 sca_header = false; 
50 END; 
eRe ZFI 
306 op_dev_write_output_line; 
5 ' Clear output buffer for next Line. 


51 
=-- Process remaining normal text in Line. 1 06: 


F 4 
e output (horizontal motion) 16-Sep-1984 00:51: AX-11 Bliss-32 V4.0-74 
ae 99: 43 


RUNOFF ..SRCJLOHORI.BLI; 


fs_init (fra); 
|! Generate separate underlining now, if specified. 


pepreps une 9p 
~~ 'Not unless there is any underlining to do! 


BEGIN 

pass_cntr = (IF .tsf_bld 

THEN pass_bold_underline 
ELSE pass_underline); 

last_pass Bes signals this separate-underline call to BUILD_LINE. 


build Line (.ptr); 


fs_wchar (fra, 105; ! Add <Lf> to the Line. 
clh (clh_out_nocrlf); |! 
fs_init TfraJ; ! Clear output buffer for next Line. 


phan_lines_tp = .phan_lines_tp + 1; 


! Update count of number of Lines on this page. 


COOCCGOOOCOOCOCOOCOOOOCOCOOCOoOOoOO rr 
SOOWONAOULS WN SH COONS W000 = 


=NININNAWIWNNW ES 


phan. lines_tp = .phan_lines_tp + 1; 


! End of LOUT1 
-TITLE LOHORI Line output (horizontal motion) 
-IDENT \v04-000\ 
-PSECT SOWNS$,NOEXE,2 

00000 ctatente, 1 


-BLK 
00004 P_LINES:.BLKB 
00134 PADDING: .BLKB 


001 4 OVERSTRIKE- COUNT: 
0013C OVERSTRIKE CHAR: 
00140 OVERSTRIKE SEQ: 
00144 BOLD_LINIT: 
00148 over Limit 
0014C UNDER_LIMIT: 
00150 PASS_LIMIT: 
00154 NEXT_PASS: 
00158 LAST PASS: 
0015C PASS_CNTR: 

BL 


wee 
o 
o 


ee ae ae a ae ae ae ie 


4 
~-EXTRN RINTES, FNCT, FRA 


LOHOR 
v04- 


sh 
A 
22 
| 
: 
54 
0158 6 
04 A640 
F3 50 
66 
50 
06 08 A 
0 
66 
1F 
00000000G_ EF 
04 
65 
00000000G_ EF 
65 
OA 
07 
000000006 Fe 
5 
Oc AS 
50 
05 
000000006 ¥ 
2 


Line output (horizontal motion) 
LOUT1 == Process remaining normal text in Line. 


SAHA 


0000004A 


28 


28 


000000006 


NOP PP FH HOMOSCOCWD OMT NOP AOPOAOCMOMMOOOMMmMmmmmm 
ON PAMOPFPUIFLOOMUO—O PIVOT SOW OS TTT THN 


OMS $C TFT ONOM AMMO —F MOMNOMOMMIoIO"VOVOVTVO ATO OOOOOOOO™" 


o 
AO 9 OOM FOOT DOOD OOW ST WOO-"COWOf LS LQOOMMMmMmMmMmMmea 


SOOOOCOOCOOCOOCOOCOOSOOOOOOOSOOOOOOOSOOOOOOOOOOOOOOOOOOO 


oo" 


COOoooooooooooo 


COOOOOCCooooo 


WIND OOD OVW™ FS WOUITN JOONMO 


OoOoooooooooooooooooooo 
COOOOCOOCOCOCCOCSOOOOCOOOCOOCoOoOooOo 


NSMIWO OuImnca 


\‘in"Co—m 


AS 


1$: 


2$: 


3$: 


: ; AX-11 Blis 


=32 V4.0-74 
RUNOFF ..SRCJLOHORI .BLI; 


A, SCA, TSF, OUTOPT 


AN, RNFILE, BSEMPH 
MBH, LNEMPH. CL 


SCODES,NOWRT, 2 
LOUT1, Save R2,R3,R4,R5,R6,R7,RB,RI,.R10,R11 
BUILD LINE R11 
NC Ri 
CLH, 
TSF. R 
P LINES, R6 
AN, R5 
Ath, RG 
#1, PASS_CNTR 
D_LIMIT 
UNDER LIMIT 
TATUS 


“cwoa"v 
o-wzaa 
hd 


I 

#1, PADDINGCIJ 
w7é, 1, 1$ 

#1, P 
TSF, 
#1 . 
oyfoprs hye 

#2, P_LINES 
FNCT+24, 4$ 
P_LINES 

aT. TP 

@PHAN+4O, PHAN 
#0, TPFEQL 

RO 

4$ 

@PHAN+40, PHAN 
PHAN, 

FNCT#24, 5$ 

#0 NEWPAG 
GCA+112, 6$ 
P_LINES, PHAN+12 


PHAN? 33. R2 


0338 


000000006 


000000006 
00 


FC 


0158 


02 00000000G_ EF 


3¢ 08 


FC 


LOHOR Line output (horizontal motion) 
v04-0 LOUT1 == Process remaining normal text in Line. 


34 

09 OA 
EF 9 
09 3¢ AB 
EF 0 
1A 

B4 52 
64 

08 A4 

6 

68 1 
8 Ab 

Au C AG 
64 FC = AG 
20. «AS 

C6 gt 
08 3 
tee 

5 

i 

04 04 
Be 

8s 

0B 

68 01 
08 A4 

Ad OC A4 
64 FC AG 
as 69 
50 67 
AQ 01 
50 67 
05 08 A0 
50 04 
: 

50 9 
C6 0 
C6 01 
04 AC 

68 1 
B4 A 
64 

08 A4 
08 

68 01 
8 A4 

AG C AG 
64 FC AG 
C 

; > 2 


; Routine Size: 386 bytes, Routine Base: 


SCODES + 0000 


for 
ee 
vm 
eo 
v0vo 
te 
a 
woo 
c@o00 


RHR HWMMMMMoOCOVCVIOMO 
RRP sarah 5 5 Be 4 4Me + 4 yy 


_ 
~ 
wn 


une enee 

SFA DS NN MD HMO OUWNVIS & NIM DOH SMO NVUMVIMO OL -VCOvToowmnvm> OOD —-— 
=" 
co 
wn 


POMS DIOAOSOOWDIOIMOO" 000" OV0OM FDS 9 F909 “ODT WDOLOM SWIC Oo—-D O—-- @ Ow 


= 
OOQOoooooooooooooQooooooooooooooooooo: 


Coo MOTT ONO COTF-FGMOmMomMs O9o "9-9 SMO MNOMIOVTVC OO "OIOTC Oe TM Mm 


a 


par At AF he a yt 
—n 

oO 

cal 


31:18 AX-11 Bliss-32 V4.0-74 


RUNOFF .SRCJLOHORI .BLI; 
12$ 
PHAN+52, 10$ 
#0, UFORM 
PHAN+60, 11$ 
FBWAIT 


i 
Re, @FRA+4 
RA+4 


H 
rhesd 
FRA+16, FRA 
FRA, FRA+G 
PHAN+32 
#1, PASS_CNTR 
status, T4$ 


R 
#1, BUILD_LINE 
RO, STATUS 


#4, #4, GCA+208, #2 


#3, R 
RO. PASS_CNTR 
#1, LAST-PASS 


PT 
#1, BUILD_LINE 
#16, aFRAt4 
FRA+4 

FRA+12 

wii 


PHAN+1 


v04~000 


Line output (horizontal motion) 
LOUT1 == Process remaining normal text in Line. 1 


-Sep-1 
~Sep-1 


1b-sep 


Be 19:06:57 


AX=11 Bliss-32 V4.0-74 
RUNOFF ..SRCJLOHORI .BLI; 


v0 


. 


e 
L 
1 
5 
4 
5 


oo 


Pat at at at at at at at at MRAM MAMAMARMHHeeneMae 
USUI WWW AUIRITIRIINIRINUIIN 2 3 = a 


PRLS 
AEWA Fs 
—OOOno Uw —oO 


4 
ut (horizontal motion) 1b-se =-1984 :51: VaX-11 Bliss-32 V4.0-74 
he -- output entire text Line, using mu 1 ~$007 1387 90:30:53 CRUNOFF. SRC LOWOR! .BLI; 


ZSBITL “BUILD_LINE == output entire text Line, using multiple passes if needed’ 
ROUTINE BUILD“LINE (ptr) = ° ~—e 


'ee¢ 


FUNCTIONAL DESCRIPTION: 


BUILD_LINE does the actual work of lag up 20 output Line 
using multiple passes for overstriking, underlining, and bolding. 


FORMAL PARAMETERS: 

ptr is the input Line pointer, passed from LOUT to LOUT1. 
IMPLICIT INPUTS: 

Some of the OWN variables of this module (NOUT). 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: 


The routine returns TRUE to indicate that more processing is 
required on a Line; it returns FALSE to indicate that the Line is 


i 
i 
i 
i 
i 
i 
i 
! 
i 
i 
' 
i 
i 
i 
i 
i 
' 
' 
: ready for output. it is called in a loop until it returns FALSE. 
SIDE EFFECTS: 

Text is written onto FRA. 


BEGIN 


LOCAL 

hold_khar, 

hold_operand!, 

hold_seq_start, ! CHSPTR to start of a character sequence. 
op cSee, 


ptr_copy_1; 
: Initialize LOCAL variables. 
hold_operand! = 0; 
operand! = 0; 
ptr_copy_1 = .ptr; 
next_pasS = .pass_cntr; ! Initialize to the current pass count. 
Initialize OWN variables. 
pi = 0; 
: Initialize emphasis and overstriking information for each call. 
emphasis_bits = 0; 


overstrike_count = 0; 
overstrike_char = 0; 


Nee eee een eee 


V04~000 


Be Se Se Ge Be Ge Be Bs Se Ge Be Oe Ge BH Se Se Se Ge FH Se FH Se Se Se Fe Se Ge Se Oe Se Be GH Se FH Se SH Se Se SH SHS SHS OH Se SESH SH Se SHS Shes ee ee BH es 


500 


PUPA PPP SVP SIVA ASSIS SISIAN SIS 
Seossc 
MEWN— 


sian ae le 
DONOUSWN—OO@ 


Oooo 


POPU) — 2 


Ntottotatatctatatd tata 
WN —"OVODONOUS WN “OOONOUL Ww 


BOSSES oes 


rs 


a 
~~ 
fwn—o 


ut (horizontal motion) 
E == output entire text Line, using mu 


! For LNOICe) output, overstriking is treated in a special way. In this 
! case, bolding/underlining peeces produce no bs { on the FRA; the only 
passes that write to the FRA are pass_overstrike and pass_real_text. 


if (Laser_output AND .tsf_ovr) 
5. pese.cntr LSS pass_overstrike) 
AN 


et ase GTR pass_setup) 
be bts '4* which pass comes next and set up the counter for it. 
pass cntr = compute_next_pass (); 
A false; 


+ 

' For alt posses except text-generating one, output spaces instead 

of the change bars. 

if emphasis_passes 

THEN F ” 
lstops (lstops_none, false) ! Space over the Listing option columns. 
lstops (lstops_all, false); ! Output Listing options. 


! Shift text according to amount computed by .CENTER, etc commands. 


INCR i FROM 1 TO .tsf af just dO 
fs_wehar (fra, %C% '); 


! Get Limit of scan for this pass. 
poss rate = (CASE .pass_cntr FROM pass_setup TO pass_real_text OF 


Cpass_setup] : -tsf_int_hl; ! 1st pass sets up others. 
Cpass_bold) : bold limit; ! Last character for bolding 


ppess over strike? : -over_limit; ! Last overstriking character 
pass_bold_overstrike] : .over_limit; 


poess_undert ined : -under_limit; ! Last underlined character 
pass_bold_underline] : .under_Llimit; 


Cpass_real_text) : -tsf_int hl; ! 7th pass generates cutput 
TES); 

ena ya 1 TO .pass_limit DO ! Process (horizontal) text. 
hold_seq_start = .ptr copy 1: ! Remember start of this sequence. 
hold_khar = CHSRCHAR_A (ptf_copy_1); 
IF .hold_khar EQL rintes 
THEN 


kK 4 
1eSep-198 19:00:57 — ERUNoFFeSRES ONO! -OL 


—e 


ut (horizontal motion) 18-se0-1984 90:31:18 AX-11 Bliss-32 V4.0-74 


~-c 


E -- output entire text Line, using mu 1 


—_ 
oO 


WMO OONOUS wn 


RUNOFF ..SRCJLOHORI .BLI; 


BEGIN 

op.code = CH$RCHAR_A (ptr_copy_1); 

hotd.opergndi = CHSRCHAR. K (ptt _copy.1); 
= ° ° 


SELECT .op_code OF 
SET 


member bolding information if bolding wanted. 
BEGIN 


emph_current bold = true; 
oper ind! = .fold_operandi; 


ZIF DSRPLUS ZTHEN 


ccccccccecccc 


eee ee ar oe ot a a oP at ot ot ot 


SOOO OOOO 
SNS SS SFR SS ee Ad OOO NO ARM ODe Ue 


Pw wee eal eal esos) eal ah al al ah al ah ah ab ah db ab ab Ah sh ab Ab ab ah db dh dh al ah ah ah ahah al aha eal al oad eal eal Oa) Od al eal eal al Oa eal a Ol 


CZc°Cc*) : 

BEGIN 
A ees scsi EQL pass_setup 
BEGIN 


outcref(); ! Process pending .REF records. 
gay ,eret_count = .tsf_cref_count = 1; 


“4 
= 


rt = 0; 
cig 


Czc'u') : 
(IF .tsf_und 
THEN 


: nonomper underlining information if underlining wanted. 


emph_current_underline = true; 
opersndt = .fold_operand!; 


); 


CXC°N') : 

! A No-operation 

BEGIN 

0 ! Avoid compiler message 
END; 


Czc'I') : 
! Insert this character. 
BEGIN 
ze uchar (fra, .hold_operand1); 


Czc's') : 
! Justification mark 
BEGIN : 
! Insert appropriate amount of spacing here. 


ee . "a 


' Is this an n emphasized or overstruck character? 
Fg teorenet NE 


See pacess character according to which pass. 
4 ,pann sate EQL pass_setup 
betty” location of emphasized character for later passes. 


IF genph. current_bold THEN bold_Limit 
IF (.overstrike_Count NEQ 0) THEN over_Limit 
- -emph_ current_underline THEN under_Limit 


soaeaat tae TRUE OF 
IF LNO1 ZTHEN 


MoRPPoPofon— 


Claser_output) : Out uf for LNOt or LNOTE. 
Lnémph (. hold ghher -gca_ at: teal. un 
emphasis bits, .overstrike~ a 
-overstrike “cher, -overstrike_seq, .pass_cntr); 


LOHOR Line output (horizontal motion) 6 -Sep-1 AX-11 Bliss-32 V4.0-74 Page 16 
v04-000 BUILD oLINE == output entire text Line, using mu 1 “$2071 99: 36: 43 RUNOFF ..SRCJLOHORI. Blitt . (5) 
7 7 INCR i FROM 1 TO .padding C.pi] DO 
sf 708 fs_wehar (fra. ac ¢ ry, , 
te , 
aqeren = 0; 
580 79¢ Bie: pi + 9: ! Sychronize insert count with word 
581 0707 4 ' count. 
286 0708 4 
58 0709 4 C%C'O") : 
584 0710 (iF .tsf ovr 
585 0711 THEN 
586 Bris ! If overstriking is wanted remember this information. 
587 18 6 BEGIN 
588 714 6 ! Remember overstrtke character 
589 0715 6 overstrike_ char = .hold operand!; 
590 0716 6 operand! = .hold _operand!; 
591 0717 6 
236 0718 6 IF .overstrike_count EQL 0 
59 0719 6 THEN 
594 0720 6 ! Remember start of overstrike sequence. 
595 0721 6 overstrike ~seq = ehold_seq_start; 
596 bo5§ 6 overstrike_count = .overstrike- count + 1; 
597 0723 6 END 
598 0724 4 ); 
599 Bis? 4 
600 0726 4 COTHERWISE) : 
601 0727 5 BEGIN 
602 0728 5 : Some illegal ehorgeter i agl RINTES. Tell the user 
603 4444 5 i it's an internal ror then carry on. 
604 0730 5 erms (rnfile, tt usu q? lout! da, 332 
605 0731 4 END; 
606 Oras 4 TES; 
607 0733 4 END 
608 0734 3 ELSE 
0 ie 4 ! Are positioned at the ‘'naked’’ character. 
0736 4 
0737 4 
0738 4 
0739 4 
0740 5 
0741 5 
0742 5 
0743 ‘5 
0744 6 
0745 6 
0746 6 
47 6 
48 5 
49 5 


Be Se Se Se Se Be Se Be Se Ss Oe Se Ge Be Ge FF Se Se Se Fe Ss Ge Ge FH FHS Se Ge Se Se Fe Se FHSS Ss Se Se Se SH SE FH Se Se Se Se Se Se Se Se Se sese Sete ee eeas 


DAAAAPAAAAAAAAAAAAAAAAA AO 
M—DQOODNOUEWN “OVONOULSWN—OO 


WWWnony 
MNADIUIMUIUIVITUT 
vere 

-—7 


e 
ee 


DSRPLUS Z%THEN 


uuu 
e 

xr 

. © 


N 4 
LOHOR Line output (horizontal motion) 16-Sep-1984 00:51: AX=11 Bliss-32 V4.0-74 
Vv04-000 BUILD. LiNE =-- output entire text line, using mu 12286871388 99:30:43 RUNOFF .SRC LOMORT “BL 124 
; 633 U 0759 C.gca_op_dev EQL op dev_vt100) : 'Output for vT100. 
> 634 U Oreo , vtenBh (hold kar ~"gca_ln01_{tal_under, 
; 635 U 0761 emphaSis_bits, .pass_entr); 
> 636 166 XF 1 
; 657 U 076 Z1F FLIP XTHEN 
§ O38 U 0764 C(.gca_op_dev EQL op_dev_flip)] : !Output for FLIP. 
; 639 U 0765 flémph (.hold_khar, Tgca_ln01_ital_under, 
: 640 U 0766 emphasis_bits, .pass_entr): 
; 641 076 xFI 
; ote 0768 C.outopt_back] : 'Backspace mode. 
> 64 0769 5 bsemph (.hold_khar, .gca_ln01_ital_under, 
> 644 0770 emphasis_bits, .overstrike count, 
; 645 O77 -overstrike_char, .overstrike_seq, .pass_cntr); 
; 647 0778 5 C.outopt_ower] : 'Line yi o8 gfe bes, mode. 
; 648 0774 5 opemph (.hold khar, .gca_ln01_ital_under, 
; 649 0775 5 emphasis_bits, .overstrike count, 
; 650 0776 5 -overstrike_char, -overstrike_seq, .pass_cntr); 
$ 633 0777 5 
; 626 0778 5 COTHERWISE) : 
; 63 0779 5 erms (rnfile, CHSPTR (UPLIT ("build_line’)), 10); 
; 654 0780 5 
; 655 0781 5 TES; 
; 656 4 5 
3; 657 0783 5 operand! = 0; 
; 658 0784 5 hold_operandi = 0; 
3 639 0785 5 emph_current_bold = false; 
; 660 0786 5 emph-current_underline = false; 
; 661 0787 5 overstrike_count = 0; 
3 $66 0788 5 overstrike_char = 0; 
; 66 0789 5 E 
3; 664 0790 4 ELSE 
; 665 0791 4 ‘It's a normal, unemphasized character to be output. Put it 
; 666 1454 4 ! in the output buffer only if pass 1 or pass 7; otherwise 
; 667 0793 4 ! use ' * for a place holder. 
; 668 0794 5 IF (NOT emphasis_passes) 
; 669 0795 4 THEN 
: 670 0796 5 BEGIN 
; 671 0797 5 XIF LNO1 2THEN 
; 67 0798 5 'Check for LNO1 emphasis and turn it off. 
3 OF 0799 6 IF laser_output 
3 674 0800 5 
3 673 0801 6 (.emph_previous_emphasized NEQ 0) ‘Emphasis on? 
3 67 $808 i ‘Have to turn off all emphasis 
; 678 0804 5 Lnemph (-1, .gca_\n01_ital_under 
3 679 0805 emphasis_bits, .overstrike_count, 
: $80 b oe arf .overstrike_char, -overstrike_seq, .pass_cntr); 
: 68 u 080 XIF DSRPLUS XTHEN 
; 68 U 33 !Check for VT100 emphasis and gure it off. 
5 one if 19 IF (.9ca_op_dev EQL op_dev_vt1G0) 'vT100. 
; ty, Y HE y{cemph_previous_emphasized NEQ 0) ‘Emphasis on? 
; 688 U 0814 'Have to turn off all emphasis 
; 689 U 0815 vtemph (-1, .gca_ln01_ital_under, 


5 

LOHOR ine output (horizontal motion) ib-se -1984 00:51: AX-11 Bliss-32 V4.0-742 
v04-000 U D°LINE =-- output entire text Line, using mu 14-8ep-19 4 90 ais? RUNOFF. ROILOHORI .BL1:1 

690 U 08 ee 3 

$3 “FI emphasis_bits, .pass_cntr) 

69 U SIF FLIP XTHEN 

o37 : a be for vane Hh — ong yt" it off 

-gca 
ant sc He is igh teak 
emph (-1, .gca_ln01_ital_under, 

yaa U ; afl enphasis-bits: -pass_cntr); 

$9) 4 fs.wehar (fra, .hold_khar); !First or Last pass: write character. 

701 8 ELSE 

4 | fs_wehar (FRA, %C" '); ! Emphasis pass: write placeholding space. 

ree : END; ! End of ‘'naked'’ character processing. 

oe : END; ! End of ‘INCR K" Loop. 

08 8 ! For the first pass, compute the number of the LAST pass that will be 

8 ! made over this text. 


IF .pass_cntr EQL pass_setup 
THEN 
Last pase = 
TIF (.over_limit NEQ 0 
OR .under_Limit NEQ 0 
OR .bold_Timit NEQ 0) 


5 
4 
4 
2 
; 
4 
4 
4 
3 
3 pees_roaltext 
3 ELS 
2 pass_setup); 
ZIF LNO1 ZTHEN 
! Be sure there's no emphasis left hanging around. 
3 us (Laser_output AND (.emph_previous_emphasized NEQ 0) ) 
2 


N 
‘Finish this record. 
Lnemph (+1, .gca_ln01_ital_under, 
emphasis_bits, .overstrike_count, 
-overstrike_char, .overstrike_seq, .pass_cntr); 


PVP EB ES BS BS EB WINN PPN PON SS Se 
AUS WN $0 ODNAUE WN O ODNOAULS WN OOO NAOUESWWN—OOOnNO Oo 


FWD —OOCONOULSWN —“OVONOUSWN—O 
(G0 Cd Cd Cd Cd Cd Od Cd Cd OD 00 09 Cd C0 Od OD OD C9 CD CD CD CD. 


WINANS PIPUPOPUNINININYDS 2 SS SS 


Se a i be Sin i i Si tn St Sit Bit Si Sit tn it Dita i NN te te i te tt a be i 
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Be Se Oe Oe Oe Be Be Se Be Ge Be Se Fe Se Se Be Fe Ge Se Ge Se Fe Gs Ge Fee Fe Ge Ge Ge Se Fe Fe Ge Se Fe Ge oe Fe Se Fees Fe ee Se Se Se Bee Se Se Se ee te teeses 


<FI 
U ZIF DSRPLUS ZTHEN 
U 0857 !In VT100 mode everything is done in one pass. But first we have to be 
’ S28 ‘sure there's no emphasis left hanging around. 
U 560 IF (.gca_op_dev EQL op_dev_vt100) 'vT100? 
5 U $8) THEN 
6 U 66 'Finish this record 
7 U 086 EGIN 
38 U 0864 IF .emph_previous_underline OR .emph_previous_bold ‘Any emphasis Left on? 
739 U 0865 THEN 
740 U 506 vtemph (-1 “pga, in0t ital under, 
41 u 867 emphasis bits, .pass_catr); 
8 U 0869 RETURN true; ‘Nothing more left to do. 
744 U 0 END; 
745 71 ZF I 
746 U 0872 ZIF FLIP XTHEN 
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5 
ut (horizontal motion) bese -1984 00:51: AX-11 Bliss<32 V4.0-74 
Re “= output entire text Line, using mu 1a-8ep-19 4 90:31:18 Bliss-32 V4.0 Page 


'For FLIP, everything is done in one pass. 
HF ey 908=0P.dev EQL op_dev_flip) 


BEGIN 
flemph (-1, -9¢8.ln01 ital under. 
emphasis_bits, .pass_cntr); 


RETURN true; 


XFI 


14 

! We are now finished with one "* «+» almost. Regardless of how we got here, there's some text 

! that hasn't been output yet. If there is nothing left to do, then we'll RETURN TRUE, which forces 
i out this text with a CRLF after it at the bottom of LOUT1. Otherwise, near the end of this routine 
the text gets output with no CRLF. 


gg eK 
gn eet EQL .last_pass) ! Last pass. 
RETURN true; 

! For emphasis passes, add a ‘bare <cr>"’ to the Line. It is at the end of the Line which is to 


! be overprinted, not at the start of the Line which does the overprinting. 
a emphasis_passes 


! User said /BACKSPACE; everything is done in one pass. 


fs_wehar (fra, 13); 
+ 
The following two output operations, which generate the intermediate (emphasis) bare-<cr> 
lines, are not done for the underlining passes if the user specified /SEPARATE. Instead, 
underlining is done in a separate call to BUILD_LINE, from LOUT1, after the 7th pass over 
the Line. This second call to BUILD_LINE is “re ite by a LAST_PASS value of -1, which is 
used in the macro GENERATE_BARE_CR_CINE, tested below. 


! If this is a bolding pass (.PASS_CNTR is even) then repeat the Line as any times as specified 

on the /BOLD:n switch. The expression (.OUTOPT_BLDN - 1) is arrived at as follows: .OUTOPT_BLDN is 
the number of times that the Line should be overprinted, so this INCR overprints one time Tess. An 
additional CLH (CLH_OUT_NOCRLF) below adds an overprint. When BUILD_LINE returns TRUE the final ; 
querer int ing is done. The module DOOPTS has taken care of the /BOLD:0 case, so that if the user said 
/BOLD:0, no bolding is seen by this routine at all. 


(NOT .pass_cntr) 
AND 


i 
iF 


SROFORG DOG LF Ae 
(NOT Laser_output) 


INCR I FROM 1 TO foutget bidn - 1) dO 
clh (clh_out_nocrilf); 


! At the end of every intermediate (emphasis) pass over the Line, output the Line without any 
' carriage control following it. If this is the first or the last pass, then we do no output now. 
IF = hasis_passes 


gonerate_pere_cr_tine 
ND 


1 
RUNOFF ..SRCJLOHORI .BLI; (5 
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dD 5 
E == output entire text Line, using mu 12280 8=1 382 99:30:47 RUNOFF SREILOONT “OL te ine (3 


: (NOT Laser_output) 
| 
clh (clh_out_nocrlf); | 
i Clear the Line buffer in the following cases: 
1 
| 
| 


LOHOR output (horizontal motion) 
yoe-000 ih 


Line 

BUILD_L 4 RUNOFF .SRCJLOHORI.BLI; 
; 804 930 
: B06 4 1 
: 0 9 : 
; 808 934 ' 
; 809 935 ' 
; 810 9 8 ! 
3 Hy +] : © for LNO1 output, on any pass but overstriking or real_text 
: sig ; 3 = for non-LNO1 output, on any pass but the separate-underlining pass 
: B14 0940 if laser_output 
; 51? 941 THEN 
3 18 aC§ ! w* NOTE: This test depends on the values in PASS.REQ: the 
‘ aif ot bee) overstriking passes must come Last. 
3 £38 a345 IF .pass_cntr LSS pass_overstrike 
; Bel 0947 fs_init (fra); 
3 asé 0948 END 
3 Se 0949 ELSE 
; 824 0950 BEG 
; 856 $932 tH eee eee ‘Not te-under lini 
: B59 o32g fs_init (fra); cape ptr sencgich s htna 
; 828 0954 END; 
3 HO 0955 
: Ha bees } Decide which pass comes next and set up counter for the next iteration. 
; 83 0958 Dass_cntr = compute_next_pass (); 
: B33 0959 — A ete 
> 834 0960 RETURN false; 
: 835 0961 
; 836 0962 END; ! End of build_line 


-PSECT S$PLITS,NOWRT ,NOEXE,2 


eASCII =\Lout1\<0><0><0> : 


00 00 00 31 74 75 6F 6C 00000 P.AAA: 
75 62 00008 P.AAB: .ASCII \build_line\<0><0> : 


00 00 65 6& 69 6C SF 64 6C 69 


-PSECT $CODE$,NOWRT,2 
OFFC 00000 BUILD_LINE: 
. WORD 
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Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 0532 
5B 00000000' Ef 9E 900 MOVAB EMPHASIS BITS. R11 : 

6 7C 0000 CLRQ  OPERAND1 > 0575 

58 04 AC D 0008 MOVL PTR, PTR_COPY_1 : 0976 

1 015¢ cB DO O000F MOVL PASS_CNTR, R1 : 057 
0154 (CB 1 00 00014 MOVL 1, REXT_PASS ; 

68 D4 19 CLRL  EMPHASIS“BITS ; 0585 

0134 CB 7C 0001B CLRO : 0581 

13¢) 6 CB. CO#4 0001F CLRL  OVERSTRIKE_CHAR : 0587 

04 000000006 EF 04 04 FD 0023 CMP2V #4, #4, GCR+208, #4 > 0593 
B C BEQL 1$ 3 


5 
LOHOR Line output (horizontal motion) 18-5e -1984 00:51: AX-11 Bliss- 4.0-74 
vive 0 BUILD LINE -- output entire text Line, using mu 1 30071382 99:56:83 RUNOFFeSRE (OnOKT “OL — (3) 


| 
05 000000006 EF 04 04 F 5 CMPZV #4, #4, GCA+208, #5 P ; 
9 BNEQ $ F ; 
50 000000006 EF D 9 1$: MOVL TSF, RO : | ; 
0D 08 Ad : E 40 BBC #2,°8(RO), 2$ : ; 
05 D1 0004 CMPL =soRT, #5 + 0595) ; 
08 18 00048 BGEQ =e. -2$ : ; 
01 1 D1 O004A CMPL sR, #1 + 0597 ’ 
03 15 0004D BLEQ 2$ : ; 
0469 31 0004F BRW 69$ : : 
01 015¢ cB D! 005¢ 2$: cMPL PASS_CNTR, #1 : 0609 ; 
07 015¢ 8 D1 0089 CMPL §- PASS_CNTR, #7 : r 
4 18 : BGEG : : 
re 7C 0006 CLRQ  =(SP) + 0611 : 
03 11 90062 BRB 4$ : : 
7E 1F 7D 00064 3$: MOV #31, =(SP) + 0613 : 
000000006 EF 02 FB 90067 4$: CALLS #2, LSTOPS : ; 
50 000000006 EF DO 0065 MOVL TSF, RO + 0617 ; 
1 D4 000 CLRL Oo : F 
13 11 00077 BRB 6$ : ; 
000000006 FF 20 90 00079 5$: MOVB #32, @FRA+4 + 0618 ; 
000000006 EF 06 90080 INCL  FRA+4 : ; 
000000006 _ EF Dg 000 INCL FRA#+12 : ; 
E8 51 e8 AO £3 OOO8C 6$: AOBLEQ 40(RO), I, 5$ + 0617 : 
06 01 015C CB CF 00091 CASEL PASS_CNTR, #1, #6 + 0621 : 
001 OO1E 0010 0025 00097 7$: <WORD 11$-7$,- : : 
0025 0017 0017 0009F 8$-7$,- : : 
10$-7$,- : : 
10$-7$,- : 3 
9$-7$,- : 
9$-7$.- : 
11$-7$ : 
15 11 OOOAS BRB 11$ + 0624 
50 0144 CB DO OOOA7 8$: MOVL BOLD_LIMIT, RO > 0626 
11 11 QOOAC BRB 12$ : 
50 0148 CB 00 OOOAE 9$: MOVL  OVER_LIMIT, RO + 0629 
OA 11 0008 BRB 1 : 
50 014C CB dO 00085 10$:  MOVL UNDER_LIMIT, RO > 0632 
63 11 OOOBA BRB 1 : 
50 60 00 9008¢ 11$:  MOVL (RO), RO > 0634 
0150 ¢B 50 DO OOOBF 12$:  MOVL RO, PASS _LIMIT > 0621 
59 0150 cB DO 0004 MOVL § PASS_LIMTT, R9 : 0638 
5 bs 0009 CLRL sé : 
0244 31 O0¢B BRW 42$ ; 
5 58 DO OOOCE 13$: | MOVL PTR_COPY_1, HOLD SEQ START + 0640 
55 88 9A 00001 MOVZBL (PTR_COPY_1)+, HOLD_RHAR : 0641 
000000006 &F 33 D1 00004 CMPL _HOLD“KHAR; #RINTES > 0643 
03 13 0000B BEQL 14$ : 
00E8 3 00DD BRW 25$ : 
54 8 OA 6 £0 14$:  MOVZBL (PTR_COPY_1)+, OP_COD > 0646 
57 8 9a O00E MOV ZBL (PTR-COPY-1)+, HOCD_OPERAND1 : 0647 
53 co OES ADDL2 #2, R > 0648 
31 1 D E MOVL #1. R1 > 065 
00000042 &F 4 D1 OO0E CMPL oP CODE, #66 > 065 
13 if F BNEQ 5$ : 
51 D F CLRL oR : 
50 000000006 EF DO 000F MOVL TSF, RO > 0654 


F 5 
LOHOR Line output (horizontal motion) 16-Sep-1984 251: AX-11 Bliss-32 V4.0-74 
¥02~000 BUILD LINE -- output entire text Line, using mu 1228687} Bd 99:30:47 RUNOFF .SRC (OAORT:BL{: ee 8 
06 08 AO €E9 000F BLBC 8(RO), 15$ ; ; 
a ean ‘fase] 
00000055 &F 4 D1 00108 15$: CMPL oP CODE, #85 ° + 0675 ; 
14 if 10F BNE 6s : : 
51 D i CLRL oR : ; 
50 000000006 EF DO 0011 MOVL ‘TSF, _RO + 0676 : 
06 08 Ad 1 FI 114A BBC #1, °8(RO), 16 : : 
68 4 8 11F BISB2 #4, EMPHASIS : 0680 : 
4 7 DO 001 é MOVL -HOLD_OPERANDT, OPERAND1 + 0681 ; 
0000004E  F 4 D1 00125 16$:  CMPL OP CODE, #78 + 0685 F 
é if 4 C BNEG 7$ : : 
d4 001 CLRL sR : ; 
00000049 8F 4 D1 00130 17$:  CMPL OP_CODE, #73 > 0691 ; 
15 12 or BNEQ 188 : ; 
51 04 00139 CLRL 1 : ; 
000000006 FF 57 90 001 MOVB §- HOLD_OPERAND1, a@FRA+4 + 0694 : 
000000006 EF 06 0014 INCL  FRA+S : ; 
000000006 FF D6 0014 INCL -FRA+12 : ; 
0000004A = &F 4 D1 O14E 18$: CMPL  OP_CODE, #74 t 0697 ; 
28 if} 0015 BNEQ 218 ; : 
50 0134 CB : 00157 MOVL PI, RO : 070 ; 
51 7C 0015¢ CLRO— RY > 069 : 
13 (17 00156 BRB 20$ : 070 ; 
000000006 FF 20 9000160 19$: MOVB #32, aFRA+4 : 070 ; 
000000006 EF D6 00167 INCL  FRA+4 F : 
000000006 EF Dg 016D INCL FRA+12 : : 
£7 52 08 AB4O F3 00173 20$:  AOBLEQ PADDINGCROJ, I, 19$ + 0702 F 
56 D4 00179 CLRL OPERAND1 + 0705 : 
0134 (CB 06 00178 INCL PI + 0706 ; 
0000004F 8F 54 01 OO17F 21$:  CMPL  OP_CODE, #79 + 0709 r 
¢3 12 00186 BNEQ 238 : ; 
1 04 00188 CLRL ss RY : F 
50 000000006 EF DO 001 A MOVL TSF, RO + 0710 F 
17 08 AO 0@ E1 00191 BBC #2,°8(RO), 23% ; : 
013C «CB 57 DO 00196 MOVL § HOLD_OPERAND1, OVERSTRIKE_CHAR + 0715 ; 
56 57 00 00198 MOVL § HOLD“OPERAND1. OPERAND1 : 0716 ; 
0138 cB D5 0019 TSTL QVERSTRIKE, COUNT : 0718 : 
: if OO1A BNEQ 2$ ; : 
0140 CB AD O14 MOVL HOLD SEQ START, OVERSTRIKE_SEQ + 0721 : 
0138 CB 06 001A9 328: INCL  OVERSTRIRE_COUNT : 0722 : 
15 51 €9 O1AD $:  BLBC Ri, 24$ : 0726 : 
05 BD 018 PUSHL #5 : 0730 : 
90000000" F OF 1Be PUSHAB P.AAA ; : 
00006 8F ODD 001B PUSHL #RNFILE : 3 
000000006 EF 3 Fe 1B CALLS ; ERMS : ; 
014A 31 O01C 348: BRW 42$ + 0643 : 
51 015C CB DO 001CB 25$:  MOVL  PASS_CNTR, R1 > 0741 ; 
: p 1€D TSTL PERAND| : 0737 : 
1CF BNEO 6 : : 
00pd 31 00101 BRW <3 : : 
01 1 01 00104 268 CMPL 1, #1 > 0741 : 
1D if 107 BNEG 29§ : : 
05 68 o1 E1 00109 BBC #1, EMPHASIS BITS, 278 > 0745 : 
0144 (CB 3 pO 001D MOVL KK, BOLD_LIMIT ; ; 
0138 c8 : 1E2 27$: —*TSTL OVERSTRIKE COUNT > 0746 ; 
1E BEQL : : 


a - - —y 


5 
LOHOR Line output (horizontal motion) ib-se 1984 251: AX-11 Bliss-32 V4.0-74 fb 3 
yoe-800 BUILD-LINE -- output entire text Line, using mu 1 mH 99:30:49 RUNOFF. RESLOMORT “BL fei _ RS 
0148 CB DO 001E8 MOVL  K, OVER_LIMIT ; : 
05 68 E1 TED 28$: BBC #2, EMPRASIS BITS, 29% + 0747 : 
O14C = CB 44 i 298: ety K, UNDER_LIMTT t ens : 
04 000000006 EF 04 4 f 1F , cHPZV ! PF #4, GCA+208, #4 : : 
3 D INCL R : 3 
D4 30$: CLRL R : ; 
05 000000006 EF 04 4 f ' CHPZV a4 #4, GCA+208, #5 : : 
D 12 INCL R : 3 
50 ‘ 14 31$:  BISL2 R2, RO : : 
01 D 17 CMPL = RO. #1 : : 
é] 12 OOO1A BNEQ 32$ : ; 
1 pp 021¢ PUSHL 1 + 0756 ; 
7E 013¢ CB 7D 0021 MOVQ OVERSTRIKE_CHAR, =(SP) : F 
0138 CB DD 00 5 PUSHL OVERSTRIKE~ COUNT + 0755 : 
5B DD 00 PUSHL R11 : 0754 ; 
7E 000000006 EF 01 00 EF 0 3 EXTZV #0, #1, GCA+209, =-(SP) : : 
000000006 EF 07 FB 99 34 CALLS #7, CNEMPH : : 
01 000000006 EF D1 OOgsD S28: CMPL © QUTOPT#12, #1 ; 0768 : 
$1 DD 00 46 PUSHL R11 + 0771 : 
7E 013C CB 7D 0024 MOVQ OVERSTRIKE_CHAR, =(SP) : 3 
0138 cB DD 00240 PUSHL OVERSTRIKE~COUNT : 0770 : 
B DD 00251 PUSHL R11 : 0769 ; 
7E 000000006 _ EF 01 00 EF 00 33 EXTZV #0, #1, GCA+209, -(SP) ; : 
oo000000G EF Q7 FB O0¢5E CALLS 47, BSEMPH : ; 
01 Oo0000006 EF D1 00867 338:  CMPL © QUTOPT#16, #1 ; 0773 : 
$1 pp 00 5 PUSHL 1 : 0776 ; 
7E 013¢c «=6CB O7D 00 i MOV OVERSTRIKE_CHAR, -(SP) : 3 
0138 cB DD 00 A PUSHL OVERSTRIKE_COUNT : 0775 : 
7E 00000000G_ EF 01 99 EF 09 7D EXTZV #0, #1. GCA+209, -(SP) : : 
000000006 EF 07 FB 9 eB CALLS a, OPEMPH ; : 
OA DD 00291 34$:  PUSHL #10 : 0779 ; 
9000000 ' EF OF 93 PUSHAB P.AAB ; 3 
000000006 EF : FB 0099F CALLS #3, ERE 
6 7C¢ 6 Nb 35$: CLRQ.  OPERAND1 : 0783 ; 
68 06 BA A BICB2 #6, EMPHASIS BITS ; 786 : 
0138 cB r¢ AB CLRO © ean Se : g d ; 
01 + D1 136$:  CMPL Ri, #1 : 0794 ; 
03 15 00284 BLEG 46-378 ; : 
2 ee pele! 
04 000000006 EF 04 FD OOCBB 37S: CMPZV #4, 4, GCAF20B, #4 ; 0799 | 3 
05 000000006 EF 04 4 €D 002C6 CMP2V #4, #4, GCA+208, #5 : | : 
| 


a 


H 5 
LOHOR Line output (horizontal motion) 16-Sep-1984 251: AX-11 iss- 4.0-74 | 
¥0e2000 BU LD LINE -- output entire text Line, using mu 12286871382 99:30:43 RUNOFF SRE LonOMt OL: zee ( . 
5 CF BNEQ 39$ : 
18 9 D1 38$: BITB MPHASIS_BITS, #24 : 1 
ee rot i jeer! 
7E O13 CB » Bf mova OVERSTRIKE_CHAR, =(SP) : 
1 e bp bp PUSHL Ov RSTRIKE—COUNT : 0805 | 
7E 000000006 EF 01 8 BP b05Es EXTZV #0, #1, GCA#209, -(SP) : | 
E 1 CE O02EC MNEGL #1. -(§P) : 
000000006 EF a. EF CALLS #7. LNEMPH : 
000000006 ‘FF 5 ? F6 39$: nove sat aFRA+4 > 0825 | 
000000006 FF th 90 OOCFF 40$: MOVB #32, @FRA+4 + 0828 
990000006 EF 06 06 41$: INCL  FRA+4 : 
000000006 Ff D6 INCL  FRA+12 : 0825 
FDB6 53 01 9 FI 12 428: ACBL  R9, #1, K, 138 : 06 8 
01 015¢ CB D1 0031 CMPL - PASS_CNTR. #1 + 083 
iF if 0310 BNEG 6$ : 
0148 CB D5 0031F TSTL OVER_LIMIT + 0840 
0c 12 00 : BNEG 43$ : 
014¢ CB 05 00 TSTL | UNDER_LIMIT + 0841 
06 12 00329 BNEQ : 
0144 cB D5 00328 TSTL BOLD_LIMIT > 0842 
05 13 O032F BEQL 44 ; 
50 07 00 00331 438:  MOVL #7, RO : 0840 
03 11 00 BRB 45$ : 
50 gi 06 0336 44$:  MOVL #1, RO F 
0158 (CB 0 DO 00339 45$: MOVL RO. LAST_PASS : 
04 000000006 EF 04 04 FD 0 Hs 46$: CMPZV #4, #4, GCA+208, #4 : 0849 
05 000000006 EF 04 ge ED 00349 CMPZV #4, #4, GCA+208, #5 : 
7 12 00352 BNEQ 48$ ; 
18 68 93 00 34 47$: BITB EMPHASIS_BITS, #24 : 
22 13 00357 BEQL 48$ : 
015¢ «CB pp 0359 PUSHL PASS_CNTR > 0854 
7E 13¢ CB 7D 0035 MOVO OVERSTRIKE_CHAR, -(SP) ; 
0138 cB DD 0036 PUSHL OVERSTRIKE~COUNT ; 0853 
B DD PUSHL : 0852 
7E 000000006 _ EF 1 0 EF EXTZV #0, #1, GCA+209, -(SP) ; 
1 CE 1 MNEGL #1. -(§P) F 
000000006 ai fe. 74 CALLS #7. LNEMPH : 
9 000090006 EF E 48$:  BLBS OUTfOPT+12, 49S + 0890 
0158 (CB 015¢ «CBO CMPL §_ PASS_CNTR, LAST_PASS : 0892 
04 if} BNEQ 50S ; 
50 1 B06 : 49S: MOVL #1, RO > 0894 
50 015¢ ¢ D0 F 50$:  MOVL  PASS_CNTR, RO : 0898 
01 01 CMPL  =oRO, I : | 
18 15 00397 BLEG)=Ss«éS18 ; 
07 5 pi 99 CMPL RO a? : 
1 5 9C BGEO)=Ss«SS § ; 
000000006 FF 0 9 H VB #13, @FRA+4 : 0900 
990000006 EF D A INCL  FRA+4 ; 
0 6 gf D AB INCL  FRA+1 : | 
3 0 € B151$:  BLBS RO, 5 : 0915 
1 0158 CB p B4 MOVL LAST PASS, R1 : 0916 
F B89 BLEQ 5 3 
| 
| 


~~ 


5 
LOHOR Line output (horizontal motion) tbs -1984 AX-11 Bliss-32 V4.0-74 
vires BUILD OL INE == output entire text Line, using mu 1 ~8ep-19 984 9: 38; 3 RUNOFF SRE [avokt ect. 7 ( 
D4 00388 CLRL oR : | 
03 § 1 B CMPL RO, #3 : 
4 ° C BNEG 52$ : | 
CMe ts | 
06 O py O0%ce S28: CHL RO, 4 i | 
1 iF ¢ BNEG ©-56$ ; 
05 ; E (8B 53$: BLBS 2, 54$ : | 
4 D1 003¢ CMPL RO, #4 ; 
if oj BNEG 55$ : | 
OF 000000006 EF E D3 54$:  BLBC QUTOPT+8, 56$ : 
1 p DA 55$: —=—*‘TSTL : 
9 230 BGEG 6-559 : 
3p C00000ne Eh PS bose Brae BRO) 's 
04 000000006 EF gf 23 FD 9 E9 568: CMP ZV a, ae, 73F A+208, a4 + 0919 
05 000000006 EF 04 04 FD airs CMP ZV #4, #4, GCA+208, #5 : 
53 000000006 EF v6 OFF OVE OUTOPT+20, R3 + 0921 
4 oD apc08 57$ CUSHL iii ; 0922 
000000006 EE o1 F 0040 0 = CMAs CLH ; 
F3 2 3 3 bct§ 58%:  AOBLSS 40 57$ ; 
30 015¢ cB 0 90417 59$: mOvL PASS ih, RO + 0926 
59 (15 Soatt BLEQ 65$ : 
07 50 Di 00421 CMPL RO, #7 : 
54 18 00424 BGEG = 6 ; 
51 0158 (CB 06 00426 MOVL LAST_PASS, R1 + 0927 
iF 1 04 B BLEG 6337 : 
38 D4 00420 CLRL : : 
03 50 D1 O042F CMPL = RO, #3 : 
04 12 00432 BNEG 0$ : 
: D6 004 INCL  R2 : 
g 11 004 BRB 61$ ; 
04 0 D1 004638 60$:  CMPL RO, #4 : 
i 1 04 BNE ; 
5 2 E8 00430 61$:  BLBS R2, 62$ ; 
4 D1 4 CMPL 3 
0 if 44 BNEO 6 : 
OF 000000006 EF E 4 62s: BLBC QUTOPT+8, 64$ ; 
1 p 4c 63$:  TSTL ; 
A 44 BGEO 638 ; 
50 000000006 EF DO 004 6 MOVL RO ; 
iF 08 AO € BLBC BeRO) 65$ : 
04 000000006 EF 04 04 FD 458 64$: CHPZV a ib, O8F 40208, #4 ; 0930 
05 000000006 EF 04 4 £ ¢ CMPZV oe #4, GCA+208, #5 ; 
000000006 EF ; Pe 173 CALS H ; ioe 
04 000000006 EF 5G ‘ FO 47A 65% cHPLV Ag a GCA+208, #4 : 0940 
05 000000006 EF 04 4 FD 4 CMP2V #4, #4, GCA+208, #5 : 
9 4 BNEQ 67% ; 


<r 


v0 


L Line output (horizontal motion) 1b-sep 1 AX-11 Bliss-32 V4.0-7 Page 26 
102000 BUILD D-LINE -- output entire text Line, using mu 1 ~Sep-1 1984 99: 36; 43 RUNOFF .SRCJLOHORI. BLI: ° (35 


05 015¢ «CB p 490 66$: CMPL PASS_CNTR, #5 + 0945 
4 49 BGEG 9 ; 
6 497 BRB 8$ + 0947 
0158 cB p 439 67$: Ist Si PASS : 0951 
G EF p4 49F 688: CLRL FRAGT? : 0953 
00000006 EF G EF t 4A3 MOVAB - FRA#+1 FRA : 
0000006 EF 0G EF DO 0048 MOVL FRA, FRA+ : 
000006v EF FB 004BB 69%: CALLS A+ OMPUTE NEXT_PASS + 0958 
15¢ = ¢B DO 004¢ MOVL RO” ; PASS_CNTR ; 
b4 4¢ CLRL + 0962 
4 004¢9 RET : 


; Routine Size: 1226 bytes, Routine Base: S$CODE$S + 0182 


x. 


2 
LOHOR Line output (horizontal motion) 16-Sep-1984 00:51: AX=11 Bliss-32 V4.0-74 P 7 
660 compute _next_pass == Decide which pass comes ne 1 300-1382 99:30:53 RUNOFF .SRC (OMORT “L124 ves BS 


H 8 963 1 XSBITL ‘compute_next_pass -- Decide which pass comes next’ 

3 9 964 1 ROUTINE compute_next_pass = 

; 840 965 1 

> 841 966 1 !+4 

H Wn 2 } FUNCTIONAL DESCRIPTION: 

3 Hr > : } Decide which pass over the MRA the next pass should be. | 
: rk 971 1 ! FORMAL PARAMETERS: None 

; 84 4) = 

; 848 0975 1! IMPLICIT INPUTS: 

3 $08 Bare 1! 

; 850 ele The value of the OWN variable pass_cntr is used as the starting 

: o2) bar8 ! } point for the calculation. 

3 HE 0378 1! Values in the tsf, outopt, and gca structures are used (in some 

3 HE 9444 : cases by way of macros defined at the top of this module). 

; 856 981 1! The order of the pass_... Literals defined in PASS.REQ determines 

3 Sef 4 : the overall logic of Ehis routine. 

; 859 0984 1 ! IMPLICIT OUTPUTS: None 

; 860 985 1! 

; 861 986 1 ! ROUTINE VALUE: 

; 8 0987 1 ! COMPLETION CODES: 

; 86 0988 1! 

> 864 0989 1! Returns the new value for pass_cntr (but does not update the OWN 

; 865 0990 1! itself). 

3 0991 1! 

; 86 0992 1 ! SIDE EFFECTS: None 

; 868 9935 1! 

; 869 994 1 !-- 

; 870 995 1 

; 871 996 BEGIN 

3 ors 0997 

; 8 0998 LOCAL 

; 874 0999 next_one; 

; 875 1000 

: 876 1001 ! Start with the current value of the pass counter. 

5 th 1936 next_one = .pass_cntr; 

3 of 1004 ! Increment based on whether there is any bolding or not. 

; 880 1005 next_one = (IF .tsf_bld 

; 38] 1006 THEN 
3 § 1 & (.next_one + 1) 
; 88 1928 3 
; 884 1 4 (.next_one + 2) 

: 885 1010 | 
$ ry] 1011 

: 88 101@ ! Check for underlining in Passes 3 and 4. | 
; one : 1? IF (.next_one EQL pass_underline) | 
; 890 1015 (,next_one EQL pass_bold_under| ine) 

s 91 1 1g THEN 

; 89 101 IF (NOT .tsf_und) 'No underlining to do, or 

: 89 1 18 OR ( outopE und nosp ! non-spacing underline 

: 894 101 AND NOT~.oufopt_und_sep) ! (was already done)... | 


oo 


<— 


Wr—oO 


COOCOCOoo 


WAWAWIWWIWIWNmornononononerornononpd 


a) 2 bs a dt ts tt 
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OE 
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62 
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5 
(horizontal motion) 16- $ep-1984 AX-11 Bliss-32 V4.0-74 
compute_next_pass -- Decide which pass comes ne 1 : 4 99: 3a; 3 


-S$ep-1984 


N 
next_one = .next_one + 2; ! Skip the underlining pass. 
' For LNO1 output, arty overstriking is taken care of at the 
' overstrike pass (on 
i pnent., one EQL pass. sold _overstrike) 
“ 4 Laser output) 
next_one = pass_real_text; 


! Skip if no overstriking required. 
IF (.next_one GEQ pass_ overstrike) 


AND 
-_ (NOT .tsf_ovr) 
next_one = pass_real_text; 
RETURN .next_one; 
END; ! End of compute_next_pass 


0004 00000 COMPUTE ae 


.W Sav AY 
52 000000006 EF 9E 00002 HOVAB GCAS2 
51 00000000" EF D0 00009 MOVL PASS_ ie eNEXT _ONE 
50 000000006 EF 00 00010 MOVL TSF 5RO 
04 08 AO €9 00017 BLBC =—._-«-& (RO 
51 D6 0001B INCL NEXT_ON ne 
03 11 0001D BRB 2$ 
51 02 CO 00018 1$: ADDL2 #2, NEXT ON 
03 51 91 000 : 2$: CMPL  _-NEXT_ONE> # 
05 13 000 BEQL «6s 3 
04 51 01 00027 CMPL eT ONE, #4 
16 12 OO02A BNEQ 3 
08 ad 01 €1 0002C 3$ BBC 8(RO), 
0A 000000006 EF €E9 00031 BLBC Sufoptes.” s$° 
03 00000)00G EF E8 09 BLBS OUTOPT+8. 5$ 
51 2 CO OO03F 4$ ADDL2 #2, NEXT “ONE 
06 1 01 04 5$ CMPL NEXT _ONE, #6 
11 12 0004 BNEQ 7 
04 04 FD 04 CMPZV #4, #4, GCA+208, #4 
07 04C BEQL 6$ 
04 4 f 04 CMPZ7V #4, #4, GCA+208, #5 
3 0 BNEQ 
51 7 oD 6 g$: MOVL aE! -ON 
08 19 00058 BLSS 
08 a0 E BBS . 8.0), 
31 D 6 MOVL ine 
0 1 p 8$: MOVL TONES R 
4 00 RET 


RUNOFF ..SRCJLOHORI .BLI; 


LOHOR Line output ‘horizontal motion) 1b-sep 9-1 38% 99: 34: 13 AX-11 Bliss-32 V4.0-74 Page Bs 


al 


compute_next_pass =~ Decide which pass comes ne RUNOFF .SRCJLOHORI .BLI; 


Routine Size: 105 bytes, Routine Base: S$CODE$ + 064C 


319 1042 1 END 1 End of modu 
' End of module 
918 1828 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SOWNS 352 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 1717 NOVEC ‘NOWRT, RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 20 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
onetane = Syabols oconoeee Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBIXPORT.L32;1 590 0 0 252 00:00.1 
~$255$DUA28 : CRUNOFF ..SRCIDSRLIB.L32;1 1248 67 5 86 00:00.2 
COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:LOHORI/OBJ=OBJ$:LOHORI MSRC$:LOHORI/UPDATE=(ENH$:LOHORI) 
Size: 1717 code + 372 data bytes 
Run Time: B9: 7.2 


Elapsed staes $90. 6 - 
Lines/CPU Min: 15308 
Roxones/CPU-Mia} 17293 

Used: 259 pages 
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